Private Sub UserForm_Initialize()

    Me.Caption = " Ȳ ǥ "

    lbl.Width = 0
    
    With lbl
        .Left = lbl.Left + lbl.Width
        .Caption = "0%"
    End With
    
End Sub
